home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / telecomm / misc / xemrip12.lha / XemRip / Install xemrip < prev    next >
Encoding:
Text File  |  1994-08-25  |  2.0 KB  |  113 lines
  1. ; This is test of many of the features of the Installer
  2. ; Prints out debugging info if run from CLI
  3.  
  4. (copylib
  5.     (prompt "Copying 'xemrip.library' to the libs: directory.")
  6.     (help @copylib-help)
  7.     (source "libs/xemrip.library")
  8.     (dest "libs:")
  9.     (confirm)
  10. )
  11.  
  12. (set fontdir
  13.     (if (<= @user-level 1)
  14.         ("fonts:")
  15.         (askdir
  16.             (prompt "Where should I store the bitmap fonts")
  17.             (help @askdir-help)
  18.             (default "fonts:")
  19.             (disk)
  20.         )
  21.     )
  22. )
  23.  
  24. (copyfiles
  25.     (prompt "Copying all xem-fonts to FONTS: directory.")
  26.     (help @copyfiles-help)
  27.     (source "Fonts")
  28.     (dest fontdir)
  29.     (all)
  30.     (fonts)
  31. )
  32.  
  33. (set ripdir
  34.     (askdir
  35.         (prompt "Where should I store the rip files")
  36.         (help "A directory \"Fonts\" and \"Icons\" will be created here.\n"
  37.             "In the fonts directory the scalable fonts will be stored and\n"
  38.             "in the icons directory the icons will be stored\n"
  39.             "\n\n\n" @askdir-help)
  40.         (default "sys:")
  41.         (disk)
  42.     )
  43. )
  44.  
  45. (set ripdir
  46.     (expandpath ripdir)
  47. )
  48.  
  49. (set fontdir
  50.     (tackon (ripdir) ("Fonts")
  51.     )
  52. )
  53.  
  54. (set icondir
  55.     (tackon (ripdir) ("Icons")
  56.     )
  57. )
  58.  
  59. (makedir fontdir)
  60. (makedir icondir)
  61.  
  62. (copyfiles
  63.     (prompt "Copying scalable fonts to %s." fontdir)
  64.     (help @copyfiles-help)
  65.     (source "Rip/Fonts")
  66.     (dest fontdir)
  67.     (all)
  68. )
  69.  
  70. (copyfiles
  71.     (prompt "Copying rip icons to %s." icondir)
  72.     (help @copyfiles-help)
  73.     (source "Rip/Icons")
  74.     (dest icondir)
  75.     (all)
  76. )
  77.  
  78. (if
  79.     (askbool
  80.         (prompt "Do you want to install the demo files")
  81.         (help "It's up to YOU.")
  82.         (choices "Yes yes yes yes" "Nuke 'Em")
  83.         (default 0)
  84.     )
  85.     (copyfiles
  86.         (prompt "Copying rip demo files to %s." ripdir)
  87.         (help @copyfiles-help)
  88.         (source "Rip")
  89.         (dest ripdir)
  90.         (files)
  91.         (pattern "#?.rip")
  92.     )
  93. )
  94.  
  95. (startup "xemrip.library"
  96.     (prompt
  97.         "Some instructions need to be added to the \"S:user-startup\" so the xemrip.library can find its icons and fonts.")
  98.     (help "No help for this function.")
  99.     (command 
  100.         (cat "assign Rip: \"" ripdir "\"\n" )
  101.     )
  102. )
  103.  
  104. (makeassign "Rip" ripdir)
  105.  
  106. (exit
  107.      "Well, that's it\n"
  108.      "Now you need to configure your terminal program\n"
  109.      "The manual wil help you with that.\n\n"
  110.      "bye bye\n"
  111.      (quiet)
  112. )
  113.